home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / pctj486.arc / RESIDENT.ASM < prev    next >
Assembly Source File  |  1986-02-04  |  1KB  |  32 lines
  1. COM        GROUP   CODE,INIT
  2.            ASSUME  CS:COM, DS:COM, ES:COM
  3.            EXTRN   SUBR:NEAR
  4. CODE       SEGMENT PUBLIC 'CODE'
  5.            ORG     100H
  6. START:     JMP     INITPROC       ;GO PERFORM INITIALIZATION
  7. RESDATA    DW      ?              ;DATA FOR RESIDENT PORTION
  8. RESIDENT   PROC
  9.            NOP                    ;PERFORM RESIDENT FUNCTION
  10.            NOP
  11.            CALL    SUBR           ;CALL RESIDENT SUBROUTINE
  12.            IRET
  13. RESIDENT   ENDP
  14. CODE       ENDS
  15. INIT       SEGMENT BYTE PUBLIC 'CODE'
  16. ENDRES     LABEL   BYTE           ;MARK END OF RESIDENT PORTION
  17. INITDATA   DW      ?              ;DATA FOR INITIALIZATION
  18. INITPROC   PROC
  19.            NOP                    ;PERFORM INITIALIZATION
  20.            NOP
  21.                                   ;EXIT & REMAIN RESIDENT
  22.            MOV     AX,CS          ;MAKE SURE ES POINTS TO PSP
  23.            MOV     ES,AX
  24.            MOV     DX,OFFSET COM:ENDRES
  25.            MOV     CL,4
  26.            SHR     DX,CL          ;NO. PARAGRAPHS RESIDENT
  27.            MOV     AX,3100H       ;EXIT & REMAIN RESIDENT
  28.            INT     21H
  29. INITPROC   ENDP
  30. INIT       ENDS
  31.            END     START
  32.